/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 1997 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1988 AT&T	*/
/*	  All Rights Reserved	*/

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

/*LINTLIBRARY*/

#include	<sys/types.h>
#include	"curses_inc.h"

#define		LENGTH	256

/* This routine gets a string starting at (_cury, _curx) */

int
wgetstr(WINDOW *win, char *str)
{
	return ((wgetnstr(win, str, LENGTH) == ERR) ? ERR : OK);
}

int
wgetnstr(WINDOW *win, char *str, int n)
{
	int	cpos = 0, ch;
	int	nbyte = 0;
	int	tbyte = 0;
	int	byte[LENGTH];
	int	eucw, scrw;
	int	docont = 0;
	char	*cp = str;
	int	i = 0;
	int	total = 0;
	char	myerase, mykill;
	char	rownum[LENGTH], colnum[LENGTH], length[LENGTH];
	int	doecho = SP->fl_echoit;
	int	savecb = cur_term->_fl_rawmode;
	bool	savsync, savimmed, savleave;

#ifdef	DEBUG
	if (outf)
		fprintf(outf, "doecho %d, savecb %d\n", doecho, savecb);
#endif	/* DEBUG */

	myerase = erasechar();
	mykill = killchar();
	if (!savecb)
		(void) cbreak();

	if (doecho) {
		SP->fl_echoit = FALSE;
		savsync = win->_sync;
		savimmed = win->_immed;
		savleave = win->_leave;
		win->_immed = win->_sync = win->_leave = FALSE;
		(void) wrefresh(win);
		if (n > LENGTH)
			n = LENGTH;
	}
	n--;

	while (nbyte < n) {
		if (doecho && !docont) {
			rownum[cpos] = win->_cury;
			colnum[cpos] = win->_curx;
		}

		ch = wgetch(win);
		if (docont)
			goto cont;

		if ((ch == ERR) || (ch == '\n') || (ch == '\r') ||
		    (ch == KEY_ENTER))
			break;
		if ((ch == myerase) || (ch == KEY_LEFT) ||
		    (ch == KEY_BACKSPACE) || (ch == mykill)) {
			if (cpos > 0) {
				if (ch == mykill) {
					i = total;
					total = cpos = 0;
					nbyte = 0;
					cp = str;
				} else {
					cpos--;
					cp -= byte[cpos];
					if (doecho)
						total -= (i = length[cpos]);
				}
				if (doecho) {
					(void) wmove(win, rownum[cpos],
					    colnum[cpos]);
					/* Add the correct amount of blanks. */
					for (; i > 0; i--)
						(void) waddch(win, ' ');
					/* Move back after the blanks are */
					/* put in. */
					(void) wmove(win, rownum[cpos],
					    colnum[cpos]);
					/* Update total. */
					(void) wrefresh(win);
				}
			} else
				if (doecho)
					(void) beep();
		} else if ((KEY_MIN <= ch) && (ch <= KEY_MAX))
				(void) beep();
			else {
cont:
				/* LINTED */
				*cp++ = (char)ch;
				if (docont) {
					tbyte++;
				} else if (ISMBIT(ch)) {
					docont = 1;
					tbyte = 1;
					scrw = mbscrw(ch);
					eucw = mbeucw(ch);
				}

				if (docont && (tbyte >= eucw)) {
					docont = 0;
					tbyte = 0;
					if (doecho) {
						byte[cpos] = eucw;
						/* LINTED */
						length[cpos] = (char)scrw;
						(void) wechochar(win,
						    (chtype) ch);
					}
				} else if (doecho) {
					/* Add the length of the */
					/* character to total. */
					byte[cpos] = 1;
					if (ch >= ' ')
						length[cpos] = 1;
					else
						if (ch == '\t')
							length[cpos] = TABSIZE-
							    (colnum[cpos] %
							    TABSIZE);
						else
							length[cpos] = 2;
					total += length[cpos];
					(void) wechochar(win, (chtype) ch);
				}
				if (!docont)
					cpos++;
				nbyte++;
			}
	}

	*cp = '\0';

	if (!savecb)
		(void) nocbreak();
	/*
	 * The following code is equivalent to waddch(win, '\n')
	 * except that it does not do a wclrtoeol.
	 */
	if (doecho) {
		SP->fl_echoit = TRUE;
		win->_curx = 0;
		if (win->_cury + 1 > win->_bmarg)
			(void) wscrl(win, 1);
		else
			win->_cury++;

		win->_sync = savsync;
		win->_immed = savimmed;
		win->_leave = savleave;
		(void) wrefresh(win);
	}
	return (ch);
}
